﻿Public Class course

    sub New

    End sub
    ''' <summary>
    ''' 课程
    ''' </summary>
    ''' <param name="iid">序号</param>
    ''' <param name="name">标题</param>
    ''' <param name="period">学时</param>
    ''' <param name="score">学分</param>
    ''' <param name="type">类型</param>
    ''' <param name="system">系统</param>
    ''' <param name="test">考试</param>
    ''' <param name="vid">视频id</param>
    '''
    ''' 
    sub New(ByVal iid As String, ByVal name As String,ByVal vid As String, ByVal period As String,ByVal score As String,ByVal type As String,
            ByVal system As String,ByVal test As String)

        ID=CInt(iid)
        coursename=name
        courseperiod=period
        courseid=vid
        coursescore=score
        coursetype=type
        coursesystem=system
        testtype=type


    End sub



    ''' <summary>
    ''' 序号
    ''' </summary>
    ''' <returns></returns>
    Public Property ID As integer
    ''' <summary>
    ''' 课程名称
    ''' </summary>
    ''' <returns></returns>
    Public Property coursename As String
    ''' <summary>
    ''' 课程视频id
    ''' </summary>
    ''' <returns></returns>
    Public Property courseid As String



    ''' <summary>
    ''' 学时
    ''' </summary>
    ''' <returns></returns>
    Public Property courseperiod As double
    ''' <summary>
    ''' 学分
    ''' </summary>
    ''' <returns></returns>
    Public Property coursescore As double

    ''' <summary>
    ''' 课程类别
    ''' </summary>
    ''' <returns></returns>
    Public Property coursetype As String

    ''' <summary>
    ''' 课程体系
    ''' </summary>
    ''' <returns></returns>
    Public Property coursesystem As String


    ''' <summary>
    ''' 考试类型
    ''' </summary>
    ''' <returns></returns>
    Public Property testtype As String


    Overrides function tostring() As string

        Return "课程类型："+ coursetype +vbTab +"课程序号：  " + ID.ToString() +vbTab+ "课程名称："+ coursename + vbTab +"课程时间："+ courseperiod.ToString()


    End function


End Class